home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
351-375
/
disk_351
/
pdc
/
libsrc.lzh
/
LibSrc
/
StdIO
/
fclose.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-04-07
|
1KB
|
56 lines
/*
* Libraries and headers for PDC release 3.3 (C) 1989 Lionel Hummel.
* PDC Software Distribution (C) 1989 Lionel Hummel and Paul Petersen.
* PDC I/O Library (C) 1987 by J.A. Lydiatt.
*
* This code is freely redistributable upon the conditions that this
* notice remains intact and that modified versions of this file not
* be included as part of the PDC Software Distribution without the
* express consent of the copyright holders. No warrantee of any
* kind is provided with this code. For further information, contact:
*
* PDC Software Distribution Internet: BIX:
* P.O. Box 4006 or hummel@cs.uiuc.edu lhummel
* Urbana, IL 61801-8801 petersen@uicsrd.csrd.uiuc.edu
*/
/* fclose.c
*
* Close a stdio stream.
*/
#include <stdio.h>
extern int _doflush();
int fclose( fp )
FILE *fp;
{
int result;
result = 0;
if ( fp == NULL )
return -1;
if ( fp->_fileflag ) {
if ( fp->_fileflag & _FILEISDIRTY )
result = _doflush( fp, -1 );
result |= close( (int)fp->_fileunit );
if ( fp->_fileflag & _FILEISDYNA )
free( fp->_filebufp );
}
fp->_filebufp = NULL;
fp->_filecpos = NULL;
fp->_fileend = NULL;
fp->_fileflag = 0;
return result;
}
int fflush( fp )
FILE *fp;
{
return(_doflush( fp, -1 ));
}